MODULE TEST;

TYPE
    abc = ARRAY 11 OF LONGINT;

VAR
    I : INTEGER;
    R : REAL;
    B : BOOLEAN;
    
BEGIN 
    I := 17 - (((22 + 6) * 4) mod 32);
    I := 1 + I;
    I := 1 + I + 2;
    I := 1 + I + 2;
    I := I + I + 1 * 2; 
    I := I + R + 1 + 2; 
    R := R + I; 
    R := R * I div I mod I;
    I := I + I + 1 + 2 + TRUE;
    B := TRUE & FALSE;
    B := 1 & TRUE;
    B := 0 OR 1;
    B := (TRUE OR FALSE) & (TRUE & FALSE);
END TEST.